home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / cucd / programming / oberonv4 / source / system / bitmaps.mod (.txt) < prev    next >
Oberon Text  |  1996-04-28  |  548b  |  21 lines
  1. Syntax10.Scn.Fnt
  2. Syntax10b.Scn.Fnt
  3. MODULE Bitmaps;
  4. IMPORT Amiga,Display,Pictures;
  5.     Bitmap*=Pictures.Picture;
  6.     Disp-:Pictures.Picture;
  7. PROCEDURE New*(w,h:INTEGER):Bitmap;
  8.     b:Bitmap;
  9. BEGIN
  10.     NEW(b);
  11.     Pictures.Create(b,w,h,Amiga.OberonDepth);
  12.     RETURN b;
  13. END New;
  14. PROCEDURE CopyBlock*(src,dst:Bitmap; sx,sy,w,h,dx,dy,mode:INTEGER);
  15. BEGIN
  16.     Pictures.CopyBlock(src,dst,sx,sy,w,h,dx,dy,mode);
  17. END CopyBlock;
  18. BEGIN
  19.     Disp:=Display.screen;
  20. END Bitmaps.
  21.